﻿Public Class frmTraCuuGiaoVien

    Private Sub frmTraCuuGiaoVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cboMon.DataSource = MonHocBUS.SelectAll()
        cboMon.ValueMember = "MAMON"
        cboMon.DisplayMember = "TENMON"
    End Sub

    Private Sub btnTraCuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuu.Click
        Dim maMon As Integer = cboMon.SelectedValue
        dgvDSGV.Rows.Clear()
        For Each gv As GiaoVienDTO In GiaoVienBUS.SelectByMaMon(maMon)
            dgvDSGV.Rows.Add(gv.MAGIAOVIEN, gv.TENGIAOVIEN, gv.GIOITINH, gv.NGAYSINH, gv.DIACHI, gv.EMAIL, gv.MAMON)
        Next
    End Sub

End Class